home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00587_init mode scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  3.8 KB  |  130 lines
  1. global gSaveMode, gSavePage, gSaveFlowType
  2.  
  3. on initPlay
  4.   global gMode, gScreenMode
  5.   setPlace(#play, #change)
  6.   set the keyDownScript to "handleKey"
  7.   set the text of cast "ModeType" to " "
  8.   set the text of cast "BrowseType" to " "
  9.   setMouseTrap()
  10.   if getaProp(gScreenMode, #SCREEN) = #TYPE1 then
  11.     set the loc of sprite 24 to point(469, 344)
  12.   else
  13.     set the loc of sprite 24 to point(2, 48)
  14.   end if
  15.   go(gMode)
  16. end
  17.  
  18. on initMode
  19.   global gFlowType, gTest, gMode, gStopTicks, gCycle, gInPlay, gMenu, gTimer, gBlindfold, gShowText, gScreenMode, gStuMethod, gSMSAllowBrowse
  20.   setPuppets("2,3,4,5,8,9,10,11,12,14,24,29,30,31,32,33", 0)
  21.   stopMouseTrap()
  22.   if (isBrowse() and (gFlowType <> #sms)) or ((gFlowType = #REGULAR) and (gTest = 0)) then
  23.     setPageArrows(1)
  24.   else
  25.     setPageArrows(0)
  26.   end if
  27.   if isBrowse() and (gSaveMode = "000") then
  28.     setPuppetScore(#blank)
  29.   else
  30.     setPuppetScore(getaProp(gStuMethod, #icons))
  31.     drawScore()
  32.   end if
  33.   set SNDCHAL to getaProp(gScreenMode, #SNDCHAL)
  34.   if (isBrowse() = 0) and (SNDCHAL = #NONE) and (gBlindfold = 1) then
  35.     if getaProp(gScreenMode, #PCTCHAL) = #YES then
  36.       set SNDCHAL to #ONPCT
  37.     else
  38.       set SNDCHAL to #UPLEFT
  39.     end if
  40.   end if
  41.   setChalSpeaker(SNDCHAL)
  42.   setBlindfoldIcon(gBlindfold)
  43.   if (isBrowse() = 1) and (gFlowType <> #sms) and (isDict() = 0) then
  44.     showMike()
  45.   end if
  46.   if (getaProp(gScreenMode, #mode) = "A") and (gFlowType <> #sms) then
  47.     showShowText()
  48.     if gShowText then
  49.       setaProp(gScreenMode, #TXTRESP, #ONPCT)
  50.       highlight(26)
  51.     else
  52.       setaProp(gScreenMode, #TXTRESP, #NONE)
  53.     end if
  54.   end if
  55.   if (getaProp(gScreenMode, #TXTRESP) = #ONPCT) and (getaProp(gScreenMode, #PCTRESP) = #YES) then
  56.     setShowTextGray()
  57.   end if
  58.   updateStage()
  59.   if gFlowType <> #sms then
  60.     drawToggle(isDict(), gTest, isBrowse(), gSaveMode = "000")
  61.   else
  62.     drawToggle(0, gSMSAllowBrowse = 0, isBrowse(), 1)
  63.   end if
  64.   drawFlags(inChallenge(), gTest, gTimer, gBlindfold)
  65.   if getaProp(gScreenMode, #SNDRESP) = #NONE then
  66.     set gCycle to 0
  67.   else
  68.     set gCycle to 1
  69.   end if
  70.   if (gFlowType <> #sms) and isBrowse() then
  71.     set gCycle to 0
  72.   end if
  73.   set modeNum to getaProp(gScreenMode, #mode)
  74.   if charToNum(modeNum) >= 65 then
  75.     set the text of cast "BrowseType" to modeNum
  76.   else
  77.     set the text of cast "ModeType" to modeNum
  78.   end if
  79.   drawModePuppet(inChallenge())
  80.   set gStopTicks to the ticks + 180
  81.   if (gFlowType = #sms) or (gFlowType = #SCRAMBLE) then
  82.     set gInPlay to 0
  83.   else
  84.     set gInPlay to 1
  85.   end if
  86.   if gMenu then
  87.     set the enabled of menuItem 2 of menu "Special" to 1
  88.   end if
  89.   drawText()
  90.   doPage(gBlindfold, gCycle, gMode, gTimer)
  91.   if gCycle then
  92.     go(gMode & "cycle")
  93.   end if
  94. end
  95.  
  96. on leaveBrowser
  97.   global gPage, gFlowType, gOldResponseOrder, gResponseOrder, gOldChallengeOrder, gOldChallengeIndex, gChallengeOrder, gChallengeIndex
  98.   set gFlowType to gSaveFlowType
  99.   translateMode(gSaveMode)
  100.   set gPage to setPage(gSavePage)
  101.   if not voidp(gOldResponseOrder) then
  102.     set gResponseOrder to gOldResponseOrder
  103.   else
  104.     set gResponseOrder to "1234"
  105.   end if
  106.   set gChallengeOrder to gOldChallengeOrder
  107.   set gChallengeIndex to gOldChallengeIndex
  108.   checkLoad()
  109.   goChangeMeta("initPlay")
  110. end
  111.  
  112. on enterBrowser
  113.   global gMode, gScreenMode, gPage, gFlowType, gOldResponseOrder, gResponseOrder, gOldChallengeOrder, gOldChallengeIndex, gChallengeOrder, gChallengeIndex
  114.   set gSaveMode to gMode
  115.   set gSavePage to gPage
  116.   set gSaveFlowType to gFlowType
  117.   set gFlowType to #REGULAR
  118.   set gOldResponseOrder to gResponseOrder
  119.   set gOldChallengeOrder to gChallengeOrder
  120.   set gOldChallengeIndex to gChallengeIndex
  121.   set gResponseOrder to "1234"
  122.   if (getaProp(gScreenMode, #TXTCHAL) = #NONE) and (getaProp(gScreenMode, #TXTRESP) = #NONE) then
  123.     set mode to "110"
  124.   else
  125.     set mode to "111"
  126.   end if
  127.   translateMode(mode)
  128.   goChangeMeta("initPlay")
  129. end
  130.